home *** CD-ROM | disk | FTP | other *** search
/ The Big Mouth 8 / Big_Mouth_The_08_1996_-_Side_B.d64 / mille bourns ins (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  4KB  |  92 lines
  1. 100 rem 1000 miles f.h. covitz
  2. 110 poke 53272,23
  3. 120 print"[147]instructions for 1000 miles
  4. 130 [153]"tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(tab(
  5. 140 print"  '1000 miles' [201][211][160][193][160][214][197][210][211][201][207][206][160][207][198][160][212][200][197]
  6. 150 [153]"asc(NULL)val(NULL)lenleft$closelenatn(NULL)str$closechr$atn(NULL)val 'mille bornes'. (NULL)left$val
  7. 160 print"[207][194][202][197][195][212][160][207][198][160][212][200][197][160][199][193][205][197][160][201][211][160][212][207][160][210][197][193][195][200][160]1000
  8. 170 [153]"(NULL)right$(NULL)val(NULL)closeatn(NULL)str$close(NULL)len(NULL)(NULL)valcloseatn(NULL)close(NULL)atn(NULL)(NULL)close(NULL)(NULL)right$(NULL)(NULL)(NULL)closeatn(NULL)
  9. 180 print"[208][207][211][211][201][194][204][197][160][201][206][160][197][193][195][200][160][207][198][160]5 [210][207][213][206][196][211].
  10. 190 [153]"   valatnlenleft$ (NULL)(NULL)(NULL)(NULL)str$ (NULL)(NULL)atn(NULL)(NULL)(NULL)close(NULL)right$(NULL)left$closeatnclose(NULL)left$(NULL)ascasc(NULL)val (NULL)asc
  11. 200 print"[212][200][197][160][196][197][195][203][160][193][206][196][160][197][193][195][200][160][208][204][193][217][197][210][160][201][211][160][196][197][193][204][212] 6
  12. 210 [153]"lenatn(NULL)str$(NULL). (NULL)(NULL)(NULL)close(NULL)(NULL)atn(NULL)(NULL)close(NULL)left$valclosechr$atn(NULL)valclosepeek(NULL) str$(NULL)atn(NULL)right$(NULL)chr$ atn
  13. 220 print"[195][193][210][196][160][193][206][196][160][197][201][212][200][197][210] play[201][206][199][160][207][210][160]discard[201][206][199]
  14. 230 [153]"atncloselenatn(NULL)str$. (NULL)(NULL)atn(NULL)closeatn(NULL)(NULL)val(NULL)(NULL)atn(NULL)val(NULL)closepeekval(NULL)(NULL)valval(NULL)close(NULL)left$val (NULL)(NULL)(NULL)
  15. 240 print"[207][208][208][207][206][197][206][212][211][160][213][206][212][201][204][160][207][206][197][160][208][204][193][217][197][210][160][210][197][193][195][200][197][211][160]1000
  16. 250 [153]"(NULL)right$(NULL)val(NULL)close(NULL)(NULL)close(NULL)(NULL)(NULL)right$(NULL)close(NULL)(NULL)closelenatn(NULL)str$(NULL)close(NULL)val(NULL)atnright$(NULL). (NULL)(NULL)(NULL)val(NULL)
  17. 260 print"[207][198][160][208][204][193][217][160][198][207][204][204][207][215].":gosub960
  18. 270 print"   [212][200][197][160][212][217][208][197][211][160][193][206][196][160][206][213][205][194][197][210][160][207][198][160][197][193][195][200][160][195][193][210][196]
  19. 280 [153]"right$(NULL)close(NULL)left$valclosestr$vallen(NULL)closeatn(NULL)val
  20. 290 print"hazards:  out of gas      [3]
  21. 300 [153]"          accident        [3]
  22. 310 print"          flat tire       [3]
  23. 320 [153]"          speed limit(50) [4]
  24. 330 print"          stop            [5]
  25. 340 [153]"remedies: gas             [6]
  26. 350 print"          repairs         [6]
  27. 360 [153]"          spare tire      [6]
  28. 370 print"          end of limit    [6]
  29. 380 [153]"          roll            [14]
  30. 390 print"safeties: extra tank      [1]
  31. 400 [153]"          driving ace     [1]
  32. 410 print"          permanent tire  [1]
  33. 420 [153]"          right-of-way    [1]
  34. 430 print"distance: 25[10]  50[10]  75[10]                 100[12] 200[4]
  35. 440 [141]960
  36. 450 [153]"    (NULL)left$valclose(NULL)peekmid$vallen(NULL)closeright$(NULL)close(NULL)(NULL)close(NULL)(NULL)atn(NULL)closedistance
  37. 460 print"[195][193][210][196][211][160][215][200][197][206][160][208][207][211][211][201][194][204][197][160][213][206][212][201][204][160][217][207][213][210][160][212][207][212][193][204]
  38. 470 [153]"str$right$(NULL)(NULL)atn(NULL)lenvalcloseright$(NULL)closeexactly 1000 (NULL)right$(NULL)val(NULL).
  39. 480 print"   [217][207][213][160][205][193][217][160][208][204][193][217][160]distance[160][195][193][210][196][211][160][207][206][204][217][160][215][200][197][206]
  40. 490 [153]"on(NULL)(NULL)(NULL)closeleft$atn(NULL)valclose(NULL)(NULL)val(NULL)right$(NULL)(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)atn(NULL)valstr$closeatncloseroll lenatn(NULL)str$.
  41. 500 print"a speed limit(50) [200][193][218][193][210][196][160][208][210][197][214][197][206][212][211][160][217][207][213]
  42. 510 [153]"asc(NULL)(NULL)(NULL)close(NULL)(NULL)atn(NULL)right$(NULL)chr$closeatn(NULL)(NULL)closedistance lenatn(NULL)str$ chr$(NULL)valatn(NULL)val(NULL)
  43. 520 print"[212][200][193][206][160]50 [205][201][204][197][211], [193][206][196][160][201][211][160][195][213][210][197][196][160][194][217][160][208][204][193][217][201][206][199]
  44. 530 [153]"atn(NULL)closeend of limit lenatn(NULL)str$. (NULL)(NULL)(NULL)closeatn(NULL)valclose(NULL)(NULL)(NULL)(NULL)(NULL)valstr$
  45. 540 print"[195][207][205][208][204][197][212][204][217][160][194][217][160][193][206][217][160][207][212][200][197][210][160][200][193][218][193][210][196] [195][193][210][196] [198][207][210]
  46. 550 [153]"(NULL)left$right$lenleft$close(NULL)(NULL)(NULL)closestr$(NULL)close(NULL)(NULL)(NULL)closeleft$atn(NULL)valclose(NULL)left$valcloselen(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)(NULL)str$right$(NULL)chr$
  47. 560 print"safety. [193] hazard [201][211][160][195][213][210][197][196][160][194][217][160][208][204][193][217][201][206][199][160][212][200][197]
  48. 570 [153]"onlen(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)(NULL)str$right$(NULL)chr$closeremedy lenatn(NULL)str$, peek(NULL)(NULL)close(NULL)(NULL)(NULL) (NULL)(NULL)(NULL)(NULL)
  49. 580 print"[211][212][201][204][204][160][208][204][193][217][160][193][160]roll [195][193][210][196][160][194][197][198][207][210][197][160][217][207][213][160][195][193][206]
  50. 590 [153]"(NULL)(NULL)(NULL)lenvalstr$val. (NULL)(NULL)(NULL)close(NULL)atn(NULL)close(NULL)(NULL)atn(NULL)closeatnclosehazard atnchr$atnright$(NULL)(NULL)(NULL)
  51. 600 print"[217][207][213][210][160][207][208][208][207][206][197][206][212][160][207][206][204][217][160][201][198][160][200][197][160][200][193][211][160][193][160]roll [195][193][210][196]
  52. 610 [153]"onval(NULL)(NULL)(NULL)(NULL)valstr$, atn(NULL)str$closeleft$valclosestr$(NULL)val(NULL)close(NULL)(NULL)(NULL)closeleft$atn(NULL)valcloseatn safety
  53. 620 print"[198][207][210][160][212][200][197][160]hazard [207][206][160][212][200][197][160][194][207][193][210][196].":gosub960
  54. 630 print"    [193] speed limit(50) [205][193][217][160][194][197][160][208][204][193][217][197][196] [193][206][217][160]
  55. 640 [153]"on(NULL)right$(NULL)val,(NULL)(NULL)(NULL)val(NULL)(NULL)close(NULL)(NULL)(NULL)(NULL)(NULL)val(NULL)(NULL)closeatn(NULL)(NULL)valatnstr$(NULL)closeleft$atn(NULL)closeatnclose(NULL)(NULL)valvalstr$
  56. 650 print"[145][204][201][205][201][212]. [193][204][211][207], [193] safety [195][193][210][196][160][205][193][217][160][194][197][160][208][204][193][217][197][196]
  57. 660 [153]"onatn(NULL)(NULL)close(NULL)right$(NULL)val, peek(NULL)(NULL)closeright$asccloseright$(NULL)closeright$(NULL)close(NULL)(NULL)atn(NULL)valstr$close(NULL)left$val(NULL)close(NULL)(NULL)(NULL)
  58. 670 print"[200][193][214][197][160][212][200][197][160][195][207][210][210][197][211][208][207][206][196][201][206][199][160]hazard, [217][207][213][160][211][195][207][210][197]
  59. 680 [153]"onatn 'coup fouree' (asc(NULL)val(NULL)lenleft$close(NULL)val(NULL)(NULL)closeasc(NULL)(NULL)closeatn
  60. 690 print"[211][201][205][213][204][212][193][206][197][207][213][211][160][207][198][198][197][206][211][197][160][193][206][196][160][196][197][198][197][206][211][197]). [197][193][195][200]
  61. 700 [153]"coup fouree (NULL)len(NULL)(NULL)val(NULL)closepeek(NULL)(NULL)(NULL)(NULL)close(NULL)(NULL)right$(NULL)(NULL)(NULL). (NULL)(NULL)(NULL)
  62. 710 print"[205][193][217][160][206][207][212][160][208][204][193][217][160][193][160]hazard [207][206][160][217][207][213][210][160][207][208][208][207][206][197][206][212]
  63. 720 [153]"right$asccloseleft$valcloseleft$atn(NULL)close(NULL)left$valcloselen(NULL)(NULL)(NULL)val(NULL)(NULL)(NULL)(NULL)str$right$(NULL)chr$ safety.
  64. 730 print"  note - [212][200][197] right-of-way [211][193][198][197][212][217] [195][213][210][197][211]
  65. 740 [153]"peek(NULL)(NULL)left$closestop atn(NULL)str$closespeed limit(50) left$atn(NULL)atn(NULL)str$(NULL),
  66. 750 print"[193][206][196][160][193][204][204][207][215][211][160][217][207][213][160][212][207][160][208][204][193][217][160]distance [195][193][210][196][211]
  67. 760 [153]"val(NULL)val(NULL)closeright$ascclose(NULL)(NULL)(NULL)closestr$(NULL)(NULL)'(NULL)closeleft$atn(NULL)valcloseatncloseroll lenatn(NULL)str$ val(NULL)-
  68. 770 print"[208][207][211][197][196].[212][200][197][160][210][207][213][206][196][160][201][211][160][207][214][197][210][160][215][200][197][206][160][197][201][212][200][197][210]
  69. 780 [153]"(NULL)(NULL)atn(NULL)val(NULL)close(NULL)valatnlenleft$val(NULL)closeval(NULL)atnlen(NULL)(NULL)(NULL)close1000close(NULL)right$(NULL)val(NULL) (NULL)(NULL)close
  70. 790 print"[215][200][197][206][160][206][207][160][195][193][210][196][211][160][210][197][205][193][201][206][160][212][207][160][194][197][160][208][204][193][217][197][196].
  71. 800 [153]"(NULL)left$valclosechr$atn(NULL)val right$(NULL)close(NULL)(NULL)val(NULL)closeatnasc(NULL)val(NULL)close5 (NULL)(NULL)(NULL)(NULL)str$(NULL).":[141]960
  72. 810 [153]"  (NULL)len(NULL)(NULL)right$(NULL)chr$closeasc(NULL)(NULL) valatnlenleft$close(NULL)(NULL)(NULL)(NULL)str$closeright$(NULL)closeatn(NULL)closeasc(NULL)(NULL)(NULL)(NULL)(NULL)(NULL):
  73. 820 print" bonus for:        points
  74. 830 [153]" tab(tab(tab(tab(tab( tab(tab(tab(         tab(tab(tab(tab(tab(tab(
  75. 840 print"[196][201][211][212][193][206][195][197]           [212][207][212][193][204] [196][201][211][212][193][206][195][197]
  76. 850 [153]"1(NULL)(NULL) (NULL)(NULL)close(NULL)valatnlenleft$close1000  400
  77. 860 print"[197][193][195][200] coup fouree   300
  78. 870 [153]"valatnlenleft$ safety (NULL)(NULL)atn(NULL)valstr$ 100
  79. 880 print"[211][200][213][212][160][207][213][212][160][207][208][208][207][206][197][206][212]  500
  80. 890 [153]"  (NULL)left$val (NULL)(NULL)(NULL)chr$(NULL)atn(NULL)closelenleft$vallen(NULL)(NULL)closeasc(NULL)(NULL)closeright$(NULL)(NULL)valchr$atn(NULL)close(NULL)(NULL)(NULL)val(NULL)
  81. 900 print"[193][206][196][160][199][201][214][197][211][160][208][210][207][205][208][212][201][206][199][160][205][197][211][211][193][199][197][211].
  82. 910 [153]"asc(NULL)(NULL)closelen(NULL)(NULL)(NULL)val(NULL)right$val(NULL)lenval, (NULL)left$valclosespace (NULL)val(NULL) (NULL)val(NULL)(NULL)val(NULL)
  83. 920 print"[212][207] [196][201][211][195][193][210][196][160][217][207][213][210] [212][207][208][160][195][193][210][196].
  84. 930 [133]"str$(NULL)close(NULL)(NULL)(NULL)close(NULL)atn(NULL)(NULL)close(NULL)(NULL)close(NULL)val(NULL)right$val(NULL)close(NULL)left$valcloseright$(NULL)(NULL)(NULL)(NULL)(NULL)len(NULL)right$(NULL)(NULL)(NULL)?wait  y (NULL)(NULL) n  sincmdcmdcmd";a$
  85. 940 [139] a$[178]"y"[167]110
  86. 953 [131]19,13,32,32,82,85,78,13
  87. 957 [128]
  88. 960 [153]"(NULL)(NULL)(NULL)left$closeatn(NULL)(NULL)close(NULL)val(NULL)close(NULL)(NULL)closelen(NULL)(NULL)(NULL)right$(NULL)(NULL)val
  89. 970 geta$:ifa$>""goto970
  90. 980 get a$:if a$=""then980
  91. 990 print"[147]";:return
  92.